home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / comm / mail / AEMail230.lha / aemail230 / arexx / placegrp.aem < prev    next >
Text File  |  1999-02-27  |  1KB  |  55 lines
  1. /* AEMail Add Name Variable to Address Book Group */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. /* TRACE ALL */
  6.  
  7. GETVAR
  8.  
  9. emailaddr = RESULT
  10.  
  11. IF (POS('@', emailaddr, 1) = 0) THEN DO
  12.     OKAY1 "No email address given"
  13.     EXIT
  14.     END
  15.  
  16. OK = 0
  17. DO UNTIL OK = 1
  18.     ADDRESS_BOOK LIST GROUP DESCRIPTION LF
  19.     grplist = RESULT
  20.     GETLISTITEM "'"grplist"' 'Select the Group Wanted'"
  21.     grpname = RESULT
  22.     IF (grpname = "") THEN EXIT
  23.     PARSE VAR grpname grpname dflt
  24.     dflt = STRIP(dflt, 'L')
  25.     ADDRESS_BOOK GET grpname TYPE
  26.     addrtype = RESULT
  27.     IF (addrtype = -1) THEN DO
  28.         OKAY2 '"Create It|Enter New Name|Cancel"' "Group Nickname Does Not Exist"
  29.         IF (RESULT = 1) THEN DO
  30.             GETSTRING '"Enter a Group Description"' "'"dflt"'"
  31.             grpdesc = RESULT
  32.             OK = 1
  33.             OKAY2 "YES|NO" "Do you want to send header only?"
  34.             IF (RESULT = 0) THEN sndho = ""
  35.             ELSE sndho = "SHO"
  36.             END
  37.         ELSE IF (RESULT = 2) THEN OK = 0
  38.         ELSE IF (RESULT = 0) THEN exit
  39.         END
  40.     IF (addrtype = 0) THEN DO
  41.         OKAY2 '"Re-enter Name|Cancel"' "Nickname is already used for an Individual"
  42.         IF (RESULT = 1) THEN OK = 0
  43.         IF (RESULT = 0) THEN exit
  44.         END
  45.     IF (addrtype = 1) THEN OK = 1
  46.     END
  47.  
  48. IF (addrtype = -1) THEN DO
  49.     cmd = "ADDRESS_BOOK CREATE GROUP " grpname sndho "'"emailaddr"'" grpdesc
  50.     addrtype = 1
  51.     END
  52. ELSE cmd = "ADDRESS_BOOK ADD TO GROUP " grpname "'"emailaddr"'"
  53.  
  54. cmd
  55.